home *** CD-ROM | disk | FTP | other *** search
/ Complete Linux / Complete Linux.iso / docs / apps / circuits / spice2g6.z / spice2g6 / spice / Fortran / getnod.f < prev    next >
Encoding:
Text File  |  1989-02-03  |  1.9 KB  |  53 lines
  1.       subroutine getnod(node)
  2.       implicit double precision (a-h,o-z)
  3. c
  4. c     this routine converts from the user node number to the internal
  5. c (compact) node number.
  6. c
  7. c spice version 2g.6  sccsid=tabinf 3/15/83
  8.       common /tabinf/ ielmnt,isbckt,nsbckt,iunsat,nunsat,itemps,numtem,
  9.      1   isens,nsens,ifour,nfour,ifield,icode,idelim,icolum,insize,
  10.      2   junode,lsbkpt,numbkp,iorder,jmnode,iur,iuc,ilc,ilr,numoff,isr,
  11.      3   nmoffc,iseq,iseq1,neqn,nodevs,ndiag,iswap,iequa,macins,lvnim1,
  12.      4   lx0,lvn,lynl,lyu,lyl,lx1,lx2,lx3,lx4,lx5,lx6,lx7,ld0,ld1,ltd,
  13.      5   imynl,imvn,lcvn,nsnod,nsmat,nsval,icnod,icmat,icval,
  14.      6   loutpt,lpol,lzer,irswpf,irswpr,icswpf,icswpr,irpt,jcpt,
  15.      7   irowno,jcolno,nttbr,nttar,lvntmp
  16. c spice version 2g.6  sccsid=cirdat 3/15/83
  17.       common /cirdat/ locate(50),jelcnt(50),nunods,ncnods,numnod,nstop,
  18.      1   nut,nlt,nxtrm,ndist,ntlin,ibr,numvs,numalt,numcyc
  19. c spice version 2g.6  sccsid=flags 3/15/83
  20.       common /flags/ iprnta,iprntl,iprntm,iprntn,iprnto,limtim,limpts,
  21.      1   lvlcod,lvltim,itl1,itl2,itl3,itl4,itl5,itl6,igoof,nogo,keof
  22. c spice version 2g.6  sccsid=blank 3/15/83
  23.       common /blank/ value(200000)
  24. c spice version 2g.6  sccsid=status 3/15/83
  25.       common /status/ omega,time,delta,delold(7),ag(7),vt,xni,egfet,
  26.      1   xmu,sfactr,mode,modedc,icalc,initf,method,iord,maxord,noncon,
  27.      2   iterno,itemno,nosolv,modac,ipiv,ivmflg,ipostp,iscrch,iofile
  28.       integer nodplc(64)
  29.       complex cvalue(32)
  30.       equivalence (value(1),nodplc(1),cvalue(1))
  31. c
  32. c
  33.       if (nogo.ne.0) go to 100
  34.       jknt=0
  35.    10 jknt=jknt+1
  36.       if (jknt.gt.nunods) go to 20
  37.       if (nodplc(junode+jknt).ne.node) go to 10
  38.       node=jknt
  39.       go to 100
  40. c
  41. c  unknown node -- must be implied by .print and/or .plot
  42. c
  43.    20 if (node.eq.0) go to 30
  44.       write (iofile,21) node
  45.    21 format('0warning:  attempt to reference undefined node ',i5,
  46.      1   ' -- node reset to 0'/)
  47.    30 node=1
  48. c
  49. c  finished
  50. c
  51.   100 return
  52.       end
  53.